home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / qm-util / automail.scr < prev    next >
Text File  |  1994-04-02  |  4KB  |  130 lines
  1. ;This is a script to make unattended mail runs from a BBS thru a batch file
  2. ;using Q-Modem Pro.  You will need to "customize" this script to suit your
  3. ;needs.  I would not recommend setting the redial limit more than 10 attempts
  4. ;otherwise, you will get an error "TOO MANY WHEN'S".  If you have any
  5. ;suggestions for improvements, please let me know.
  6. ;Eddie Dukes
  7. ;The Tiger's Den
  8. ;Columbia, SC
  9. ;(803) 798-5068
  10.  
  11. TURNON      8_BIT
  12. TURNOFF     LINEFEED
  13. TURNOFF     NOISE
  14. TURNOFF     MUSIC
  15. TURNON      SCROLL
  16. TURNOFF     PRINT
  17. TURNOFF     ECHO
  18. TURNOFF     SPLIT
  19. TURNON      STATUSLN
  20. TURNOFF     DOORWAY
  21. STRING      QWKFILE REPFILE QWKPATH REPPATH TELNUM LIMIT
  22. STRING      INITIAL DOOR XFER NAME HOSTNAME
  23. ASSIGN      HOSTNAME     "THE BBS TO CALL"    ;The BBS you want to call
  24. ASSIGN      QWKFILE      MAIL.QWK             ;The name of .QWK packet
  25. ASSIGN      REPFILE      MAIL.REP             ;The name of the .REP packet
  26. ASSIGN      QWKPATH      C:\DNLOAD\           ;Your .QWK download directory
  27. ASSIGN      REPPATH      C:\UPLOAD\           ;Your .REP upload directory
  28. ASSIGN      DOOR         D                    ;Maybe "T" for TomCat
  29. ASSIGN      XFER         Z                    ;Your download protocol
  30. ASSIGN      NAME         "!NODE NAME 1234"    ;Your Node name and password
  31. ASSIGN      TELNUM       "ATDT 5551234^M"     ;The BBS phone # you're calling
  32. ASSIGN      LIMIT        5                    ;# of times you want to re-dial
  33. ASSIGN      INITIAL       "AT&F2E0M^M"        ;Your modem init. string
  34. SETCOMM     19200 8 NONE 1
  35.  
  36. ;---------------------------- Initialize the Modem ----------------------
  37. INIT:
  38. SEND          "ATHM^M"
  39. DELAY          1000
  40. ASSIGN         0 $LIMIT
  41. CLRSCR
  42. DISPLAY        "Initializing Modem ... "
  43. DELAY          1000
  44. SEND           "$INITIAL"
  45. WAITFOR        "OK"
  46.  
  47. ;----------------------------- Dial the Board ---------------------------
  48. GETON:
  49. WHEN           "BUSY"           AGAIN
  50. WHEN           "NO CARRIER"     AGAIN
  51. PAUSE          2000
  52. DECR           0
  53. IF             "$0" < "1"       GETOUT
  54. TIMEOUT        60               GETON
  55. CLRSCR
  56. DISPLAYLN      "Attempting to connect with $HOSTNAME"
  57. DISPLAYLN      "Dial attempts left are $0"
  58. DISPLAYLN      "Dialing string: $TELNUM"
  59. DELAY          100
  60. SEND           "$TELNUM"
  61. WAITFOR        "CONNECT"
  62. GOTO           ONTHESYSTEM
  63.  
  64. AGAIN:
  65. PAUSE          1000
  66. SEND           "ATH1M^M"
  67. PAUSE          5000
  68. GOTO           GETON
  69.  
  70. ;-------------------- We have connected to the System ------------------
  71. ONTHESYSTEM:
  72. WAITFOR        "first name"
  73. DELAY          100
  74. SEND           "$NAME^M"
  75. WHEN           "NO CARRIER"               GETOUT
  76. TIMEOUT        600                        GETOUT
  77. SEND           "^M"
  78.  
  79. ;-------------------- Call for the Download of the Mail Packet ---------
  80. DOWNSECTION:
  81. DL:
  82. SEND           "^M"
  83. WAITFOR        "TOMCAT MENU"
  84. DELAY          100
  85. SEND           "D^M"
  86. WHEN           "to download!"             UPSECTION
  87. WHEN           "NO CARRIER"               GETOUT
  88. WAITFOR        "oodbye when done"
  89. DELAY          1000
  90. SEND           "Y^M"
  91. WHEN           "Insufficient time"        UPSECTION
  92. WAITFOR        "Start"
  93. DELAY          100
  94. DOWNLOAD       $XFER $QWKPATH$QWKFILE
  95. DELAY          200
  96.  
  97. ;-------------------------- Lets Upload the Replies ---------------------
  98. UPSECTION:
  99. SEND           "^M"
  100. WHEN           "NO CARRIER"               GETOUT
  101. SEND           "^M"
  102. WAITFOR        "TOMCAT MENU"
  103. DELAY          100
  104. EXIST          $REPPATH$REPFILE           SENDEM
  105. GOTO           GETOUT
  106.  
  107. SENDEM:
  108. SEND           "U^M"
  109. DELAY          100
  110. WAITFOR        "Start"
  111. PAUSE          1000
  112. UPLOAD         $XFER $REPPATH$REPFILE
  113. WHEN           "Transfer UNCESSFUL!"      UPSECTION
  114. DOS            "DEL $REPPATH$REPFILE
  115. GOTO           ALLDONE
  116.  
  117. ;--------------------------- Lets get out of Here ----------------------
  118. ALLDONE:
  119. SEND           "^M"
  120. WAITFOR        "TOMCAT MENU"
  121. DELAY          100
  122. SEND           "G^M"
  123. PAUSE          5000
  124.  
  125. GETOUT:
  126. HANGUP
  127. SEND           "ATZ^M^~^~^~^~^~^~ATH1M0^M"
  128. SYSTEM         Y
  129. EXIT
  130.